data(PlantGrowth)
head(PlantGrowth)

##   weight group
## 1   4.17  ctrl
## 2   5.58  ctrl
## 3   5.18  ctrl
## 4   6.11  ctrl
## 5   4.50  ctrl
## 6   4.61  ctrl

library(plotly)

fig<-plot_ly(data = PlantGrowth,y = ~weight,color = ~group, type = "box",
               boxpoints = "all", jitter = 0.3, pointpos = -1.8)
fig